home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / ATM / FRMAMOUN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-22  |  3.6 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAmountWithdrawn 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3048
  5.    ClientLeft      =   5256
  6.    ClientTop       =   3588
  7.    ClientWidth     =   4164
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   3048
  11.    ScaleWidth      =   4164
  12.    Begin VB.Frame fraMoney 
  13.       Caption         =   "fraMoney"
  14.       Height          =   1215
  15.       Left            =   120
  16.       TabIndex        =   2
  17.       Top             =   1080
  18.       Width           =   3855
  19.       Begin VB.TextBox txtConvertedAmt 
  20.          Height          =   285
  21.          Left            =   2040
  22.          TabIndex        =   4
  23.          Top             =   600
  24.          Width           =   1575
  25.       End
  26.       Begin VB.TextBox txtUSDollarsAmt 
  27.          Height          =   285
  28.          Left            =   240
  29.          TabIndex        =   3
  30.          TabStop         =   0   'False
  31.          Top             =   600
  32.          Width           =   1575
  33.       End
  34.       Begin VB.Label lblCurrency 
  35.          Caption         =   "lblCurrency"
  36.          Height          =   195
  37.          Left            =   2040
  38.          TabIndex        =   6
  39.          Top             =   360
  40.          Width           =   1575
  41.       End
  42.       Begin VB.Label lblUSDollars 
  43.          Caption         =   "US Dollars"
  44.          Height          =   195
  45.          Left            =   240
  46.          TabIndex        =   5
  47.          Top             =   360
  48.          Width           =   1575
  49.       End
  50.    End
  51.    Begin VB.CommandButton cmdOKEnd 
  52.       Caption         =   "cmdOKEnd"
  53.       Default         =   -1  'True
  54.       Height          =   375
  55.       Left            =   2880
  56.       TabIndex        =   1
  57.       Top             =   2520
  58.       Width           =   1095
  59.    End
  60.    Begin VB.Image imgFlag 
  61.       BorderStyle     =   1  'Fixed Single
  62.       Height          =   735
  63.       Left            =   120
  64.       Stretch         =   -1  'True
  65.       Top             =   120
  66.       Width           =   735
  67.    End
  68.    Begin VB.Label lblAmountWith 
  69.       Caption         =   "lblAmountWith"
  70.       Height          =   735
  71.       Left            =   1080
  72.       TabIndex        =   0
  73.       Top             =   120
  74.       Width           =   2895
  75.    End
  76. Attribute VB_Name = "frmAmountWithdrawn"
  77. Attribute VB_GlobalNameSpace = False
  78. Attribute VB_Creatable = False
  79. Attribute VB_PredeclaredId = True
  80. Attribute VB_Exposed = False
  81. Option Explicit
  82. Private Sub cmdOKEnd_Click()
  83.     ' To play the sound, a soundcard with the Microsoft ADPCM Audio CODEC driver is
  84.     ' necessary. This driver is included in Windows 95 and Windows NT 3.51 or later.
  85.     BeginPlaySound I
  86.     MsgBox LoadResString(8 + I)   ' Display a thank you message.
  87.     Unload Me
  88. End Sub
  89. Private Sub Form_Load()
  90.     Dim ConversionValue As Currency
  91.     ConversionValue = ConversionTable((I - 16) \ 32)
  92.     imgFlag = LoadResPicture(I, vbResBitmap)
  93.     lblAmountWith = LoadResString(9 + I) & " " & _
  94.         IIf(frmInput.optChecking, LoadResString(3 + I), LoadResString(4 + I))
  95.     lblCurrency = LoadResString(10 + I)
  96.     cmdOKEnd.Caption = LoadResString(6 + I)
  97.     fraMoney = "1 USD ($) = " & CStr(ConversionValue) & " " & lblCurrency.Caption
  98.     txtUSDollarsAmt = Val(frmInput.txtUSDollarsAmt.Text)
  99.     txtConvertedAmt = ConversionValue * CCur(txtUSDollarsAmt.Text)
  100.     SetCursor cmdOKEnd
  101.     ' For DBCS, the font name must be set by VB when the
  102.     ' project is loaded. To have this sample working everywhere
  103.     ' we must set the font properties by program.
  104.     lblAmountWith.FontBold = True
  105. End Sub
  106.